home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / perl5 / 5.8.7 / B / disassemble < prev    next >
Text File  |  2006-04-25  |  396b  |  23 lines
  1. use B::Disassembler qw(disassemble_fh);
  2. use FileHandle;
  3.  
  4. my $fh;
  5. if (@ARGV == 0) {
  6.     $fh = \*STDIN;
  7. } elsif (@ARGV == 1) {
  8.     $fh = new FileHandle "<$ARGV[0]";
  9. } else {
  10.     die "Usage: disassemble [filename]\n";
  11. }
  12.  
  13. sub print_insn {
  14.     my ($insn, $arg) = @_;
  15.     if (defined($arg)) {
  16.     printf "%s %s\n", $insn, $arg;
  17.     } else {
  18.     print $insn, "\n";
  19.     }
  20. }
  21.  
  22. disassemble_fh($fh, \&print_insn);
  23.